// Testing Msg quick functions

//----------------------------------------------------------------------------//

function Main()

   MsgAbout( "Five 1.0", "32 bits Clipper-compatible power" )

   MsgInfo( "MsgInfo()" )

   MsgAlert( "MsgAlert()" )

   MsgStop( "MsgStop()" )

   if MsgYesNo( "Want to quit ?" )
      MsgInfo( "you selected yes" )
   else
      MsgInfo( "you selected no" )
   endif

   if MsgNoYes( "Want to quit ?" )
      MsgInfo( "you selected yes" )
   else
      MsgInfo( "you selected no" )
   endif

return nil

//----------------------------------------------------------------------------//
